home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue40 / Construc / UNIT1.DFM / UNIT1.txt
Encoding:
Text File  |  1998-10-30  |  10.8 KB  |  420 lines
  1. object Form1: TForm1
  2.   Left = 133
  3.   Top = 72
  4.   Width = 860
  5.   Height = 600
  6.   Caption = 'Website Visitor Tracking Data Analysis v0.2'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object DecisionPivot1: TDecisionPivot
  17.     Left = 0
  18.     Top = 0
  19.     Width = 852
  20.     Height = 41
  21.     ButtonAutoSize = True
  22.     DecisionSource = DecisionSource1
  23.     GroupLayout = xtHorizontal
  24.     Groups = [xtRows, xtColumns, xtSummaries]
  25.     ButtonSpacing = 0
  26.     ButtonWidth = 64
  27.     ButtonHeight = 24
  28.     GroupSpacing = 10
  29.     BorderWidth = 0
  30.     BorderStyle = bsNone
  31.     Align = alTop
  32.     TabOrder = 0
  33.     OnClick = DecisionPivot1Click
  34.   end
  35.   object DecisionGrid1: TDecisionGrid
  36.     Left = 0
  37.     Top = 41
  38.     Width = 852
  39.     Height = 532
  40.     DefaultColWidth = 26
  41.     DefaultRowHeight = 17
  42.     CaptionColor = clActiveCaption
  43.     CaptionFont.Charset = DEFAULT_CHARSET
  44.     CaptionFont.Color = clCaptionText
  45.     CaptionFont.Height = -11
  46.     CaptionFont.Name = 'MS Sans Serif'
  47.     CaptionFont.Style = []
  48.     DataColor = clInfoBk
  49.     DataSumColor = clNone
  50.     DataFont.Charset = DEFAULT_CHARSET
  51.     DataFont.Color = clWindowText
  52.     DataFont.Height = -11
  53.     DataFont.Name = 'MS Sans Serif'
  54.     DataFont.Style = []
  55.     LabelFont.Charset = DEFAULT_CHARSET
  56.     LabelFont.Color = clWindowText
  57.     LabelFont.Height = -11
  58.     LabelFont.Name = 'MS Sans Serif'
  59.     LabelFont.Style = []
  60.     LabelColor = clBtnFace
  61.     LabelSumColor = clYellow
  62.     DecisionSource = DecisionSource1
  63.     Dimensions = <
  64.       item
  65.         FieldName = 'Hours'
  66.         Color = clNone
  67.         Alignment = taCenter
  68.         Subtotals = True
  69.       end
  70.       item
  71.         FieldName = 'OS'
  72.         Color = clNone
  73.         Alignment = taCenter
  74.         Subtotals = True
  75.       end
  76.       item
  77.         FieldName = 'Browser'
  78.         Color = clNone
  79.         Alignment = taCenter
  80.         Subtotals = True
  81.       end
  82.       item
  83.         FieldName = 'Page Requests'
  84.         Color = clNone
  85.         Alignment = taCenter
  86.         Subtotals = True
  87.       end
  88.       item
  89.         FieldName = 'Unique Visitors'
  90.         Color = clNone
  91.         Alignment = taCenter
  92.         Subtotals = True
  93.       end>
  94.     Totals = True
  95.     ShowCubeEditor = False
  96.     Align = alClient
  97.     Color = clBtnFace
  98.     GridLineWidth = 1
  99.     GridLineColor = clWindowText
  100.     ParentShowHint = False
  101.     ScrollBars = ssVertical
  102.     ShowHint = True
  103.     TabOrder = 1
  104.     OnDecisionDrawCell = DecisionGrid1DecisionDrawCell
  105.   end
  106.   object DecisionGraph1: TDecisionGraph
  107.     Left = 0
  108.     Top = 41
  109.     Width = 852
  110.     Height = 532
  111.     DecisionSource = DecisionSource1
  112.     Title.Text.Strings = (
  113.       'TDecisionGraph')
  114.     BottomAxis.Title.Caption = 'Hours'
  115.     LeftAxis.ExactDateTime = False
  116.     LeftAxis.Increment = 4.000000000000000000
  117.     LeftAxis.MinorTickCount = 0
  118.     LeftAxis.MinorTickLength = 0
  119.     LeftAxis.TickLength = 0
  120.     LeftAxis.Title.Caption = 'Page Requests'
  121.     MaxPointsPerPage = 24
  122.     RightAxis.Title.Caption = 'Page Requests'
  123.     TopAxis.Title.Caption = 'Hours'
  124.     Align = alClient
  125.     TabOrder = 2
  126.     object Series1: TLineSeries
  127.       Active = False
  128.       ColorEachPoint = True
  129.       Marks.ArrowLength = 20
  130.       Marks.Visible = False
  131.       Title = 'Template: Hours'
  132.       SeriesColor = clRed
  133.       Pointer.InflateMargins = True
  134.       Pointer.Style = psRectangle
  135.       Pointer.Visible = False
  136.       XValues.DateTime = False
  137.       XValues.Name = 'X'
  138.       XValues.Multiplier = 1.000000000000000000
  139.       XValues.Order = loAscending
  140.       YValues.DateTime = False
  141.       YValues.Name = 'Y'
  142.       YValues.Multiplier = 1.000000000000000000
  143.       YValues.Order = loNone
  144.       Identifier = 'Template: Hours'
  145.       Style = 61
  146.     end
  147.     object Series2: TPieSeries
  148.       Active = False
  149.       Marks.ArrowLength = 20
  150.       Marks.Visible = False
  151.       Title = 'Template: OS'
  152.       OtherSlice.Text = 'Other'
  153.       PieValues.DateTime = False
  154.       PieValues.Name = 'Pie'
  155.       PieValues.Multiplier = 1.000000000000000000
  156.       PieValues.Order = loNone
  157.       Identifier = 'Template: OS'
  158.       Style = 61
  159.     end
  160.     object Series3: TPieSeries
  161.       Active = False
  162.       Marks.ArrowLength = 20
  163.       Marks.Visible = False
  164.       Title = 'Template: Browser'
  165.       OtherSlice.Text = 'Other'
  166.       PieValues.DateTime = False
  167.       PieValues.Name = 'Pie'
  168.       PieValues.Multiplier = 1.000000000000000000
  169.       PieValues.Order = loNone
  170.       Identifier = 'Template: Browser'
  171.       Style = 61
  172.     end
  173.     object Series5: TBarSeries
  174.       Marks.ArrowLength = 20
  175.       Marks.Visible = False
  176.       Title = 'Teleport'
  177.       SeriesColor = clGreen
  178.       XValues.DateTime = False
  179.       XValues.Name = 'X'
  180.       XValues.Multiplier = 1.000000000000000000
  181.       XValues.Order = loAscending
  182.       YValues.DateTime = False
  183.       YValues.Name = 'Bar'
  184.       YValues.Multiplier = 1.000000000000000000
  185.       YValues.Order = loNone
  186.       Identifier = 'Teleport'
  187.       Style = 40
  188.     end
  189.     object Series4: TLineSeries
  190.       Marks.ArrowLength = 20
  191.       Marks.Visible = False
  192.       Title = 'Linux'
  193.       SeriesColor = clRed
  194.       Pointer.InflateMargins = True
  195.       Pointer.Style = psRectangle
  196.       Pointer.Visible = False
  197.       XValues.DateTime = False
  198.       XValues.Name = 'X'
  199.       XValues.Multiplier = 1.000000000000000000
  200.       XValues.Order = loAscending
  201.       YValues.DateTime = False
  202.       YValues.Name = 'Y'
  203.       YValues.Multiplier = 1.000000000000000000
  204.       YValues.Order = loNone
  205.       Identifier = 'Linux'
  206.       Style = 40
  207.     end
  208.     object Series6: TLineSeries
  209.       Marks.ArrowLength = 20
  210.       Marks.Visible = False
  211.       Title = 'Win16'
  212.       SeriesColor = clYellow
  213.       Pointer.InflateMargins = True
  214.       Pointer.Style = psRectangle
  215.       Pointer.Visible = False
  216.       XValues.DateTime = False
  217.       XValues.Name = 'X'
  218.       XValues.Multiplier = 1.000000000000000000
  219.       XValues.Order = loAscending
  220.       YValues.DateTime = False
  221.       YValues.Name = 'Y'
  222.       YValues.Multiplier = 1.000000000000000000
  223.       YValues.Order = loNone
  224.       Identifier = 'Win16'
  225.       Style = 40
  226.     end
  227.     object Series7: TLineSeries
  228.       Marks.ArrowLength = 20
  229.       Marks.Visible = False
  230.       Title = 'Win95'
  231.       SeriesColor = clBlue
  232.       Pointer.InflateMargins = True
  233.       Pointer.Style = psRectangle
  234.       Pointer.Visible = False
  235.       XValues.DateTime = False
  236.       XValues.Name = 'X'
  237.       XValues.Multiplier = 1.000000000000000000
  238.       XValues.Order = loAscending
  239.       YValues.DateTime = False
  240.       YValues.Name = 'Y'
  241.       YValues.Multiplier = 1.000000000000000000
  242.       YValues.Order = loNone
  243.       Identifier = 'Win95'
  244.       Style = 40
  245.     end
  246.     object Series8: TLineSeries
  247.       Marks.ArrowLength = 20
  248.       Marks.Visible = False
  249.       Title = 'Win98'
  250.       SeriesColor = clWhite
  251.       Pointer.InflateMargins = True
  252.       Pointer.Style = psRectangle
  253.       Pointer.Visible = False
  254.       XValues.DateTime = False
  255.       XValues.Name = 'X'
  256.       XValues.Multiplier = 1.000000000000000000
  257.       XValues.Order = loAscending
  258.       YValues.DateTime = False
  259.       YValues.Name = 'Y'
  260.       YValues.Multiplier = 1.000000000000000000
  261.       YValues.Order = loNone
  262.       Identifier = 'Win98'
  263.       Style = 40
  264.     end
  265.     object Series9: TLineSeries
  266.       Marks.ArrowLength = 20
  267.       Marks.Visible = False
  268.       Title = 'WinNT'
  269.       SeriesColor = clGray
  270.       Pointer.InflateMargins = True
  271.       Pointer.Style = psRectangle
  272.       Pointer.Visible = False
  273.       XValues.DateTime = False
  274.       XValues.Name = 'X'
  275.       XValues.Multiplier = 1.000000000000000000
  276.       XValues.Order = loAscending
  277.       YValues.DateTime = False
  278.       YValues.Name = 'Y'
  279.       YValues.Multiplier = 1.000000000000000000
  280.       YValues.Order = loNone
  281.       Identifier = 'WinNT'
  282.       Style = 40
  283.     end
  284.     object Series10: TLineSeries
  285.       Marks.ArrowLength = 20
  286.       Marks.Visible = False
  287.       Title = 'other'
  288.       SeriesColor = clFuchsia
  289.       Pointer.InflateMargins = True
  290.       Pointer.Style = psRectangle
  291.       Pointer.Visible = False
  292.       XValues.DateTime = False
  293.       XValues.Name = 'X'
  294.       XValues.Multiplier = 1.000000000000000000
  295.       XValues.Order = loAscending
  296.       YValues.DateTime = False
  297.       YValues.Name = 'Y'
  298.       YValues.Multiplier = 1.000000000000000000
  299.       YValues.Order = loNone
  300.       Identifier = 'other'
  301.       Style = 40
  302.     end
  303.   end
  304.   object DecisionCube1: TDecisionCube
  305.     DataSet = DecisionQuery1
  306.     DimensionMap = <
  307.       item
  308.         ActiveFlag = diAsNeeded
  309.         FieldType = ftInteger
  310.         Fieldname = 'Hours'
  311.         BaseName = '"19981027.DB".Hours'
  312.         Name = 'Hours'
  313.         DerivedFrom = -1
  314.         DimensionType = dimDimension
  315.         BinType = binNone
  316.         ValueCount = 24
  317.         Active = True
  318.       end
  319.       item
  320.         ActiveFlag = diAsNeeded
  321.         FieldType = ftString
  322.         Fieldname = 'OSystem'
  323.         BaseName = '"19981027.DB".OSystem'
  324.         Name = 'OS'
  325.         DerivedFrom = -1
  326.         DimensionType = dimDimension
  327.         BinType = binNone
  328.         ValueCount = 7
  329.         Active = True
  330.       end
  331.       item
  332.         ActiveFlag = diAsNeeded
  333.         FieldType = ftString
  334.         Fieldname = 'Browser'
  335.         BaseName = '"19981027.DB".Browser'
  336.         Name = 'Browser'
  337.         DerivedFrom = -1
  338.         DimensionType = dimDimension
  339.         BinType = binNone
  340.         ValueCount = 27
  341.         Active = True
  342.       end
  343.       item
  344.         ActiveFlag = diAsNeeded
  345.         FieldType = ftInteger
  346.         Fieldname = 'COUNT OF ThisPage'
  347.         BaseName = '"19981027.DB".ThisPage'
  348.         Name = 'Page Requests'
  349.         DerivedFrom = -1
  350.         DimensionType = dimCount
  351.         BinType = binNone
  352.         ValueCount = -1
  353.         Active = True
  354.       end
  355.       item
  356.         ActiveFlag = diAsNeeded
  357.         FieldType = ftInteger
  358.         Fieldname = 'COUNT OF IP'
  359.         BaseName = '"19981027.DB".IP'
  360.         Name = 'Unique Visitors'
  361.         DerivedFrom = -1
  362.         DimensionType = dimCount
  363.         BinType = binNone
  364.         ValueCount = -1
  365.         Active = True
  366.       end>
  367.     ShowProgressDialog = True
  368.     MaxDimensions = 3
  369.     MaxSummaries = 2
  370.     MaxCells = 0
  371.     Left = 304
  372.     Top = 328
  373.   end
  374.   object DecisionSource1: TDecisionSource
  375.     DecisionCube = DecisionCube1
  376.     ControlType = xtCheck
  377.     SparseRows = False
  378.     SparseCols = False
  379.     Left = 344
  380.     Top = 328
  381.     DimensionCount = 3
  382.     SummaryCount = 2
  383.     CurrentSummary = 0
  384.     SparseRows = False
  385.     SparseCols = False
  386.     DimensionInfo = (
  387.       2
  388.       0
  389.       1
  390.       0
  391.       0
  392.       1
  393.       0
  394.       1
  395.       0
  396.       0
  397.       1
  398.       1
  399.       1
  400.       1
  401.       0)
  402.   end
  403.   object DecisionQuery1: TDecisionQuery
  404.     Active = True
  405.     DatabaseName = 'c:\usr\bob\delphi.mag\#40\src\'
  406.     Constraints = <
  407.       item
  408.         FromDictionary = False
  409.       end>
  410.     SQL.Strings = (
  411.       
  412.         'SELECT Hours, OSystem, Browser, COUNT( ThisPage ), COUNT(  DISTI' +
  413.         'NCT IP )'
  414.       'FROM "19981027.DB"'
  415.       'GROUP BY Hours, OSystem, Browser')
  416.     Left = 264
  417.     Top = 328
  418.   end
  419. end
  420.